home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Languguage OS 2
/
Languguage OS II Version 10-94 (Knowledge Media)(1994).ISO
/
a_utils
/
perl
/
prlbkxmp.lha
/
ch5
/
commas.eg
< prev
next >
Wrap
Text File
|
1991-01-08
|
168b
|
10 lines
sub commas {
local($_) = @_;
1 while s/(.*\d)(\d\d\d)/$1,$2/;
$_;
}
for ($i = 1; $i <= 1e15; $i *= 7) {
$result = &commas($i);
print "$result\n";
}